﻿Imports System.Data.SqlClient
Public Class DF04_VA
    Inherits Conexion
    Dim cmd As New SqlCommand
    Public Function guardar(ByVal dts As Entidades.EF04Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_guardar_F04VA")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@numform", dts.numformu)
            cmd.Parameters.AddWithValue("@dominio", dts.domini)
            cmd.Parameters.AddWithValue("@X1", dts.xuno)
            cmd.Parameters.AddWithValue("@descripcion", dts.descripcionn)
            cmd.Parameters.AddWithValue("@X2", dts.xdos)
            cmd.Parameters.AddWithValue("@X3", dts.xtres)
            cmd.Parameters.AddWithValue("@X4", dts.xcuatro)
            cmd.Parameters.AddWithValue("@X5", dts.xcinco)
            cmd.Parameters.AddWithValue("@X6", dts.xseis)
            cmd.Parameters.AddWithValue("@X7", dts.xsiete)
            cmd.Parameters.AddWithValue("@X8", dts.xocho)
            cmd.Parameters.AddWithValue("@X9", dts.xnueve)
            cmd.Parameters.AddWithValue("@motorbaja", dts.motorbaj)
            cmd.Parameters.AddWithValue("@X10", dts.xdiez)
            cmd.Parameters.AddWithValue("@X11", dts.xonce)
            cmd.Parameters.AddWithValue("@X12", dts.xdoce)
            cmd.Parameters.AddWithValue("@X13", dts.xtrece)
            cmd.Parameters.AddWithValue("@X14", dts.xcatorce)
            cmd.Parameters.AddWithValue("@marcanuevomotor", dts.marcanuevomotorr)
            cmd.Parameters.AddWithValue("@numnuevomotor", dts.numnuevomotorr)
            cmd.Parameters.AddWithValue("@X15", dts.xquince)
            cmd.Parameters.AddWithValue("@calle", dts.callee)
            cmd.Parameters.AddWithValue("@numero", dts.numeroo)
            cmd.Parameters.AddWithValue("@piso", dts.pisoo)
            cmd.Parameters.AddWithValue("@dpto", dts.dptoo)
            cmd.Parameters.AddWithValue("@codpostal", dts.codposta)
            cmd.Parameters.AddWithValue("@localidad", dts.localida)
            cmd.Parameters.AddWithValue("@partdpto", dts.partdpt)
            cmd.Parameters.AddWithValue("@provincia", dts.provinci)
            cmd.Parameters.AddWithValue("@optasi", dts.optasii)
            cmd.Parameters.AddWithValue("@optano", dts.optanoo)
            cmd.Parameters.AddWithValue("@codregistro", dts.codregistr)
            cmd.Parameters.AddWithValue("@chapa", dts.chapaa)
            cmd.Parameters.AddWithValue("@marca", dts.marcaa)
            cmd.Parameters.AddWithValue("@tipo", dts.tipoo)
            cmd.Parameters.AddWithValue("@modelo", dts.modeloo)
            cmd.Parameters.AddWithValue("@marcamotor", dts.marcamoto)
            cmd.Parameters.AddWithValue("@nummotor", dts.nummoto)
            cmd.Parameters.AddWithValue("@marcachasis", dts.marcachasi)
            cmd.Parameters.AddWithValue("@numchasis", dts.numchasi)
            cmd.Parameters.AddWithValue("@lugarfecha", dts.lugarfech)
            cmd.Parameters.AddWithValue("@fechainsc1", dts.fechains1)
            cmd.Parameters.AddWithValue("@importe1", dts.import1)
            cmd.Parameters.AddWithValue("@acreedor1", dts.acreedo1)
            cmd.Parameters.AddWithValue("@fechainsc2", dts.fechains2)
            cmd.Parameters.AddWithValue("@importe2", dts.import2)
            cmd.Parameters.AddWithValue("@acreedor2", dts.acreedo2)


            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function


    Public Function modificar(ByVal dts As Entidades.EF04Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_modificar_F04VA")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@numform", dts.numformu)
            cmd.Parameters.AddWithValue("@dominio", dts.domini)
            cmd.Parameters.AddWithValue("@X1", dts.xuno)
            cmd.Parameters.AddWithValue("@descripcion", dts.descripcionn)
            cmd.Parameters.AddWithValue("@X2", dts.xdos)
            cmd.Parameters.AddWithValue("@X3", dts.xtres)
            cmd.Parameters.AddWithValue("@X4", dts.xcuatro)
            cmd.Parameters.AddWithValue("@X5", dts.xcinco)
            cmd.Parameters.AddWithValue("@X6", dts.xseis)
            cmd.Parameters.AddWithValue("@X7", dts.xsiete)
            cmd.Parameters.AddWithValue("@X8", dts.xocho)
            cmd.Parameters.AddWithValue("@X9", dts.xnueve)
            cmd.Parameters.AddWithValue("@motorbaja", dts.motorbaj)
            cmd.Parameters.AddWithValue("@X10", dts.xdiez)
            cmd.Parameters.AddWithValue("@X11", dts.xonce)
            cmd.Parameters.AddWithValue("@X12", dts.xdoce)
            cmd.Parameters.AddWithValue("@X13", dts.xtrece)
            cmd.Parameters.AddWithValue("@X14", dts.xcatorce)
            cmd.Parameters.AddWithValue("@marcanuevomotor", dts.marcanuevomotorr)
            cmd.Parameters.AddWithValue("@numnuevomotor", dts.numnuevomotorr)
            cmd.Parameters.AddWithValue("@X15", dts.xquince)
            cmd.Parameters.AddWithValue("@calle", dts.callee)
            cmd.Parameters.AddWithValue("@numero", dts.numeroo)
            cmd.Parameters.AddWithValue("@piso", dts.pisoo)
            cmd.Parameters.AddWithValue("@dpto", dts.dptoo)
            cmd.Parameters.AddWithValue("@codpostal", dts.codposta)
            cmd.Parameters.AddWithValue("@localidad", dts.localida)
            cmd.Parameters.AddWithValue("@partdpto", dts.partdpt)
            cmd.Parameters.AddWithValue("@provincia", dts.provinci)
            cmd.Parameters.AddWithValue("@optasi", dts.optasii)
            cmd.Parameters.AddWithValue("@optano", dts.optanoo)
            cmd.Parameters.AddWithValue("@codregistro", dts.codregistr)
            cmd.Parameters.AddWithValue("@chapa", dts.chapaa)
            cmd.Parameters.AddWithValue("@marca", dts.marcaa)
            cmd.Parameters.AddWithValue("@tipo", dts.tipoo)
            cmd.Parameters.AddWithValue("@modelo", dts.modeloo)
            cmd.Parameters.AddWithValue("@marcamotor", dts.marcamoto)
            cmd.Parameters.AddWithValue("@nummotor", dts.nummoto)
            cmd.Parameters.AddWithValue("@marcachasis", dts.marcachasi)
            cmd.Parameters.AddWithValue("@numchasis", dts.numchasi)
            cmd.Parameters.AddWithValue("@lugarfecha", dts.lugarfech)
            cmd.Parameters.AddWithValue("@fechainsc1", dts.fechains1)
            cmd.Parameters.AddWithValue("@importe1", dts.import1)
            cmd.Parameters.AddWithValue("@acreedor1", dts.acreedo1)
            cmd.Parameters.AddWithValue("@fechainsc2", dts.fechains2)
            cmd.Parameters.AddWithValue("@importe2", dts.import2)
            cmd.Parameters.AddWithValue("@acreedor2", dts.acreedo2)

            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function


End Class
